home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / GadgetsData.cp / GadgetsData.cp.rsrc < prev    next >
Encoding:
Text File  |  1997-02-26  |  368 b   |  12 lines  |  [TEXT/KAHL]
  1.     2 RTEXTKAHLoperties
  2.     import    procID:        int        /GadgetsData.cpaTEXTKAHLcÙTEXTKAHLcÙd@Ø9G
  3. Œrt    ctlValue:    int        // output
  4.  
  5.     getProcID ()
  6.  
  7.     ctlMin = min
  8.     ctlMax = max
  9.     if ctlMax == ctlMin
  10.         ctlMax = ctlMin + 10
  11.     end if
  12.     ctlVaˇˇ